﻿Public Class fmain

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox_Shutdown.Click
        Application.Exit()
    End Sub

    Private Sub fmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Cogemos las coordenadas del formulario principal y ajustamos los controles.

        Dim coord_x As Integer
        Dim coord_y As Integer

        coord_x = Me.Size.Width
        coord_y = Me.Size.Height

        'Ajustes de Controles.
        PictureBox_Shutdown.Location = New Point(coord_x - (coord_x * 0.05), coord_y * 0.05)




    End Sub

    Private Sub FACinemaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FACinemaToolStripMenuItem.Click
        fcinema.ShowDialog()
        Me.Close()
    End Sub
End Class
